home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / dosutils / tsbat50.zip / MENU.BAT < prev    next >
DOS Batch File  |  1990-12-29  |  3KB  |  95 lines
  1. echo off
  2.  
  3. rem MENU.BAT to invoke programs from a menu
  4. rem The programs in this batch are my five statistics programs, but
  5. rem it should be easy for you to tailor this idea for your own needs.
  6.  
  7. rem If you get an "Out of environment space" message, increase your
  8. rem environment space by using shell configuration in config.sys:
  9. rem MsDos 3.30 example: shell=c:\bin\command.com /e:1024 /p
  10.  
  11. rem Set the appropriate program names into environment variables
  12. set _prog1=c:\stat\statmeas.exe
  13. set _prog2=c:\stat\statregr.exe
  14. set _prog3=c:\stat\stattran.exe
  15. set _prog4=c:\stat\statrcor.exe
  16. set _prog5=c:\stat\statladr.exe
  17.  
  18. rem Check that the programs exist
  19. set _prog=
  20. if not exist %_prog1% set _prog=%_prog1%
  21. if not exist %_prog2% set _prog=%_prog2%
  22. if not exist %_prog3% set _prog=%_prog3%
  23. if not exist %_prog4% set _prog=%_prog4%
  24. if not exist %_prog5% set _prog=%_prog5%
  25. if not "%_prog%"=="" goto _err1
  26.  
  27. :_begin
  28. cls
  29. echo 
  30. echo ┌───────────────────────────────────────────────────┐
  31. echo │ Menu for selecting and running programs           │
  32. echo │ By Prof. Timo Salmi, ts@chyde.uwasa.fi, 29-Dec-90 │
  33. echo └───────────────────────────────────────────────────┘
  34. echo 
  35.  
  36. rem Make a menu, liven it up with colors
  37. echo  0) exit the menu      .
  38. echo  1) %_prog1%
  39. echo  2) %_prog2%
  40. echo  3) %_prog3%
  41. echo  4) %_prog4%
  42. echo  5) %_prog5%
  43. echo 
  44.  
  45. rem Check that ask.exe is available at path or the current directory
  46. set _found=no
  47. if exist ask.exe set _found=yes
  48. for %%d in (%path%) do if exist %%d\ask.exe set _found=yes
  49. if "%_found%"=="no" goto _err3
  50.  
  51. ask Select program number to run: /d
  52. set _prog=
  53. if errorlevel==48 if not errorlevel==49 set _prog=_exit
  54. if errorlevel==49 if not errorlevel==50 set _prog=%_prog1%
  55. if errorlevel==50 if not errorlevel==51 set _prog=%_prog2%
  56. if errorlevel==51 if not errorlevel==52 set _prog=%_prog3%
  57. if errorlevel==52 if not errorlevel==53 set _prog=%_prog4%
  58. if errorlevel==53 if not errorlevel==54 set _prog=%_prog5%
  59. if "%_prog%"=="_exit" goto _out
  60. if "%_prog%"=="" goto _err2
  61.  
  62. rem Run the program
  63. %_prog%
  64.  
  65. :_again
  66. ask Select from the menu again (y/n)? /u /d
  67. if errorlevel==89 if not errorlevel==90 goto _begin
  68. if errorlevel==78 if not errorlevel==79 goto _out
  69. echo 
  70. goto _again
  71.  
  72. :_err1
  73. echo File %_prog% not found
  74. goto :_out
  75.  
  76. :_err2
  77. echo No such choice available
  78. goto :_again
  79.  
  80. :_err3
  81. echo 
  82. echo You must have ask.exe at your path (or the current directory)
  83. goto _out
  84.  
  85. :_out
  86. set _prog=
  87. set _prog1=
  88. set _prog2=
  89. set _prog3=
  90. set _prog4=
  91. set _prog5=
  92. set _found=
  93. echo 
  94. echo on
  95.